100 IFATHEN140
110 DV=PEEK(186):IFDV<8THENDV=8
120 GOSUB240
130 IFA=0THENA=1:LOAD"I-PRG C000",DV,1
140 IFA=1THENA=2:LOAD"INVENTORY.O",DV,1
150 IFA=2THENA=3:LOAD"MAIN HELP",DV,1
160 IFA=3THENA=4:LOAD"REL EASE 9100.O",DV,1
170 IFA=4THENA=5:LOAD"SCREEN TOOL 9900",DV,1
180 IFA=5THENA=6:LOAD"GETPRINT 9600",DV,1
190 IFA=6THENA=7:LOAD"GET WORD 9A00",DV,1
191 IFA=7THENA=8:LOAD"MENU 1 HELP",DV,1
192 IFA=8THENA=9:LOAD"MENU 2 HELP",DV,1
193 IFA=9THENA=10:LOAD"MENU 3 HELP",DV,1
200 PRINT"[144]":PRINT""
210 PRINT "P[207]44,16:P[207]43,1:P[207]16*256,0:LOAD";CHR$(34);F$;CHR$(34)","DV":"
220 PRINT"RUN:"
230 POKE631,13:POKE632,13:POKE198,2:END
240 POKE53280,0:POKE53281,0:IFFTHENRETURN
330 POKE214,14:PRINT"[145][155]";
360 F$="MYB":RETURN
380 DATA"[214]1.0 [208]UBLISHED ON [204][207][193][196][211][212][193][210] #87","[211]UBSCRIPTIONS 1-800-831-2694"
390 DATA"[195]OPYRIGHT ([195]) 1991 [211]OFTDISK"